perm filename BROWSE.TIM[TIM,LSP]8 blob
sn#743215 filedate 1984-02-21 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00011 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 SAIL 100. 10. 4.
C00004 00003 SAIL 100. 10. 4.
C00006 00004 SAIL 100. 10. 4. (model B)
C00007 00005 Old Browse
C00008 00006 New Browse
C00009 00007 NIL
C00011 00008 Franz
C00020 00009 SCORE Oct 18, 1983
C00022 00010 DEC780CL
C00023 00011 InterLisp Vax 780
C00024 ENDMK
C⊗;
;;; SAIL 100. 10. 4.
(fasload browse)
(timit)
Timing performed on Thursday 09/09/82 at 14:32:20.
Cpu Time = 13.635
Elapsed Time = 133.4
Wholine Time = 95.183333
GC Time = 40.438
Load Average Before = 1.96977687
Load Average After = 1.68995798
Average Load Average = 1.82986742
NIL
Timing performed on Thursday 09/09/82 at 14:35:00.
Cpu Time = 13.635
Elapsed Time = 228.583334
Wholine Time = 93.166667
GC Time = 39.524
Load Average Before = 1.89986777
Load Average After = 2.54795516
Average Load Average = 2.22391146
NIL
Timing performed on Thursday 09/09/82 at 14:38:59.
Cpu Time = 13.652
Elapsed Time = 174.683332
Wholine Time = 93.5
GC Time = 39.934
Load Average Before = 2.3873887
Load Average After = 2.08130932
Average Load Average = 2.234349
NIL
;;; SAIL 100. 10. 4.
(fasload browse)
(timit)(timit)(timit)
Timing performed on Sunday 02/13/83 at 14:27:32.
Cpu (- GC) Time = 13.896
Elapsed Time = 218.533333
Wholine Time = 100.266666
GC Time = 39.704
Load Average Before = 2.77352154
Load Average After = 2.62624335
Average Load Average = 2.69988245
NIL
Timing performed on Sunday 02/13/83 at 14:31:15.
Cpu (- GC) Time = 13.777
Elapsed Time = 216.216667
Wholine Time = 97.55
GC Time = 38.776
Load Average Before = 2.55250084
Load Average After = 2.45873046
Average Load Average = 2.50561565
NIL
Timing performed on Sunday 02/13/83 at 14:34:52.
Cpu (- GC) Time = 13.865
Elapsed Time = 258.616665
Wholine Time = 97.566667
GC Time = 38.935
Load Average Before = 2.4577961
Load Average After = 2.8594705
Average Load Average = 2.6586333
NIL
;;; SAIL 100. 10. 4. (model B)
(fasload browse)
(timit)
Timing performed on Sunday 02/27/83 at 20:20:13.
Cpu (- GC) Time = 12.043
Elapsed Time = 274.05
Wholine Time = 82.683333
GC Time = 35.696
Load Average Before = 0.76563597
Load Average After = 3.6514511
Average Load Average = 2.20854354
NIL
;;; Old Browse
D3
Elapsed 85.8
GC 34.7
CPU 51.1
PGFLT 49
Elapsed 86.5
GC 34.7
CPU 51.8
PGFLT 22
-------------
;;;New Browse
D2
Elapsed 517.0
SWAP 26.6
CPU 363.0
GC 127.0
PGFLT 546
SWPWRT 32
DSKOPS 533
Consecutive
Without Interrupts
Elapsed 370.0
SWAP 1.16
CPU 273.0
GC 96.4
PGFLT 87
DSKOPS 42
D2
7/5/83 without interrupts
Elapsed 342.0
Swap 10.1
GC 82.6
CPU 249.0
pgflts 266
dskops 197
D3
7/5/83
Elapsed 94.3
GC 41.9
CPU 52.5
pgflts 44
D1
1/25/84 with interrupts
Elapsed 300.0
Swap .256
CPU 174.0
GC 126.0
;;; NIL
BROWSE
Pass 1: changes to preserve semantics:
(subst nil nil ...) -> (copy-tree ...)
Change arithmetic functions to NIL's fixnum-only versions.
Bleagh! This bashes my nifty-keen random number generator!
Well, i don't think anything needs it.
Try 1:
cpu=1099.84,elapsed=1226.54,pagefaults=9664
The above time includes about a minute or two of poking around with
the debugger to see if the lisp had broken. I will not try a second
time to factor that out.
My face is red. I think what is going on here is that INTERN is a big
loser. For various brain-damaged reasons, INTERN is not what is
called by either the compiled-code loader, or the reader. Because it
is so brain-damaged but not really used (except in cases like this!),
its fixing has been put well towards the end of the queue. (The code
will be all-new anyway when common-lisp packages are put in.)
Because of this i'm not going to bother bumming anything (like
carcdr-switch, or even optimizing GETCHAR usage in any way).
;;; Franz
∂09-Oct-83 0946 jkf@ucbkim browse
Received: from UCBKIM by SU-AI with TCP/SMTP; 9 Oct 83 09:45:54 PDT
Received: by ucbkim.ARPA (4.6/4.2)
id AA17720; Sun, 9 Oct 83 09:49:22 PDT
Date: Sun, 9 Oct 83 09:49:22 PDT
From: John Foderaro (on an h19-u) <jkf@ucbkim>
Message-Id: <8310091649.AA17720@ucbkim.ARPA>
To: rpg@su-ai
Subject: browse
Cc:
--- Benchmark browse run on ucbkim at Sat Oct 8 01:30:11 PDT 1983 by jkf
--- cpu usage: 1:30am up 2 hrs, 4 users, load average: 1.25, 1.21, 1.28
Franz Lisp, Opus 38.81
=> [fasl browse.o]
t
=> benchmark: browse (file browse) , tranlinks: on, localf: no
executing form: (browse)
begin (14 146)
end (10229 5666)
runs 1
avg cpu time 78.25, avg gc time 92.0
benchmark: browse (file browse) , tranlinks: off, localf: no
executing form: (browse)
begin (10231 5666)
end (24233 10336)
runs 1
avg cpu time 155.5333333333333, avg gc time 77.83333333333333
nil
=> Franz Lisp, Opus 38.81
=> [fasl browse-l.o]
t
=> benchmark: browse (file browse) , tranlinks: on, localf: yes
executing form: (browse)
begin (20 146)
end (9739 5484)
runs 1
avg cpu time 73.01666666666667, avg gc time 88.96666666666667
benchmark: browse (file browse) , tranlinks: off, localf: yes
executing form: (browse)
begin (9740 5484)
end (22520 10122)
runs 1
avg cpu time 135.7, avg gc time 77.3
nil
=> Franz Lisp, Opus 38.81
=> [load browse.l]
[fasl benchmac.o]
t
=> benchmark: browse (file browse) , tranlinks: on, interpreted
executing form: (browse)
begin (49 146)
end (80821 5494)
runs 1
avg cpu time 1257.066666666667, avg gc time 89.13333333333333
benchmark: browse (file browse) , tranlinks: off, interpreted
executing form: (browse)
begin (80824 5494)
end (160988 10343)
runs 1
avg cpu time 1255.25, avg gc time 80.81666666666667
nil
=> --- cpu usage: 2:36am up 3:06, 0 users, load average: 1.24, 1.22, 1.17
--- end of benchmark browse
--- Benchmark browse run on ucbmatisse at Fri Oct 7 11:11:42 PDT 1983 by jkf
--- cpu usage: 11:11am up 3 days, 22:58, 3 users, load average: 1.05, 1.15, 1.15
Franz Lisp, Opus 38.81
=> [fasl browse.o]
t
=> benchmark: browse (file browse) , tranlinks: on, localf: no
executing form: (browse)
begin (74 149)
end (15742 8457)
runs 1
avg cpu time 122.6666666666667, avg gc time 138.4666666666667
benchmark: browse (file browse) , tranlinks: off, localf: no
executing form: (browse)
begin (15745 8457)
end (39106 16552)
runs 1
avg cpu time 254.4333333333333, avg gc time 134.9166666666667
nil
=> Franz Lisp, Opus 38.81
=> [fasl browse-l.o]
t
=> benchmark: browse (file browse) , tranlinks: on, localf: yes
executing form: (browse)
begin (74 151)
end (15382 8427)
runs 1
avg cpu time 117.2, avg gc time 137.9333333333333
benchmark: browse (file browse) , tranlinks: off, localf: yes
executing form: (browse)
begin (15384 8427)
end (36085 16379)
runs 1
avg cpu time 212.4833333333333, avg gc time 132.5333333333333
nil
=> Franz Lisp, Opus 38.81
=> [load browse.l]
[fasl benchmac.o]
t
=> benchmark: browse (file browse) , tranlinks: on, interpreted
executing form: (browse)
begin (121 154)
end (129293 8550)
runs 1
avg cpu time 2012.933333333333, avg gc time 139.9333333333333
benchmark: browse (file browse) , tranlinks: off, interpreted
executing form: (browse)
begin (129367 8620)
end (258983 16520)
runs 1
avg cpu time 2028.6, avg gc time 131.6666666666667
nil
=> --- cpu usage: 1:00pm up 4 days, 47 mins, 4 users, load average: 1.00, 1.13, 1.28
--- end of benchmark browse
--- Benchmark browse run on ucbmike at Fri Oct 7 12:19:34 PDT 1983 by jkf
--- cpu usage: 12:19pm up 2:51, 0 users, load average: 1.01, 1.03, 1.04
Franz Lisp, Opus 38.79
-> [fasl browse.o]
t
-> benchmark: browse (file browse) , tranlinks: on, localf: no
executing form: (browse)
begin (28 259)
end (24810 16798)
runs 1
avg cpu time 137.3833333333333, avg gc time 275.65
benchmark: browse (file browse) , tranlinks: off, localf: no
executing form: (browse)
begin (24815 16798)
end (53430 30307)
runs 1
avg cpu time 251.7666666666667, avg gc time 225.15
nil
-> Franz Lisp, Opus 38.79
-> [fasl browse-l.o]
t
-> benchmark: browse (file browse) , tranlinks: on, localf: yes
executing form: (browse)
begin (29 259)
end (24629 16790)
runs 1
avg cpu time 134.4833333333333, avg gc time 275.5166666666667
benchmark: browse (file browse) , tranlinks: off, localf: yes
executing form: (browse)
begin (24634 16790)
end (51791 30276)
runs 1
avg cpu time 227.85, avg gc time 224.7666666666667
nil
-> Franz Lisp, Opus 38.79
-> [load browse.l]
[fasl benchmac.o]
t
-> benchmark: browse (file browse) , tranlinks: on, interpreted
executing form: (browse)
begin (144 325)
end (155181 16269)
runs 1
avg cpu time 2318.216666666667, avg gc time 265.7333333333333
benchmark: browse (file browse) , tranlinks: off, interpreted
executing form: (browse)
begin (155188 16269)
end (307376 29686)
runs 1
avg cpu time 2312.85, avg gc time 223.6166666666667
nil
-> --- cpu usage: 2:22pm up 4:54, 0 users, load average: 1.01, 1.03, 1.03
--- end of benchmark browse
;;; SCORE Oct 18, 1983
LOAD(BROWSE.IL)
LOAD(BROWSE.COM)
MAKEFILE(BROWSE)
BCOMPL(BROWSE)
ST
(BROWSE)
∧
TRACE(SEED)
RELINK(WORLD)
BROKENFNS
(INIT 100 10 4
(QUOTE ((A A A B B B B A A A A A B B A A A)
(A A B B B B A A (A A)
(B B))
(A A A B (B A)
B A B A]
(QUOTE ((*A ?B *B ?B A *A A *B *A)
(*A *B *B *A (*A)
(*B))
(? ? *(B A)* ? ?])
PP BROWSE
PP BROWSE
(DEFINEQ
(BROWSE
[LAMBDA NIL
(SEED)
(INVESTIGATE [RANDOMIZE (INIT 100 10 4
(QUOTE ((A A A B B B B A A A A A B B
A A A)
(A A B B B B A A
(A A)
(B B))
(A A A B (B A)
B A B A]
(QUOTE ((*A ?B *B ?B A *A A *B *A)
(*A *B *B *A (*A)
(*B))
(? ? *(B A)* ? ?]))
(BROWSE)
;results
488945 Conses
70.321 seconds
26.981 seconds GC time.
;;; DEC780CL
cpu + probability x gc
BROWSE 59 + 0.3 x 24
;;; InterLisp Vax 780
BROWSE:
←(TIME (BROWSE]
489007 conses
155.232 seconds
NIL